home *** CD-ROM | disk | FTP | other *** search
/ Spawn Figure Collection / spawn collection cd.iso / setup / data1.cab / Program_Executable_Files / Collection.dir / 00159_çÌèú.ls < prev    next >
Encoding:
Text File  |  1998-01-19  |  989 b   |  34 lines
  1. on mouseUp
  2.   global gnowseries, gnowtitle, gnowgroup, geprotect, gedited, lsortedt, gnowlistptr
  3.   set ls to getAt(lseries, gnowseries)
  4.   set lt to getAt(the ltitle of ls, gnowtitle)
  5.   set lg to getAt(the lgroup of lt, gnowgroup)
  6.   if editablecheck(gnowseries, gnowtitle, gnowgroup) = 1 then
  7.     set gedited to 1
  8.     deleteAt(the lgroup of lt, gnowgroup)
  9.     if gnowgroup <> 1 then
  10.       set gnowgroup to gnowgroup - 1
  11.     end if
  12.     if count(the lgroup of lt) = 0 then
  13.       deleteAt(the ltitle of ls, gnowtitle)
  14.       if gnowtitle <> 1 then
  15.         set gnowtitle to gnowtitle - 1
  16.       end if
  17.       set gnowgroup to 1
  18.       if count(the ltitle of ls) = 0 then
  19.         deleteAt(lseries, gnowseries)
  20.         if gnowseries <> 1 then
  21.           set gnowseries to gnowseries - 1
  22.         end if
  23.         set gnowtitle to 1
  24.         set gnowgroup to 1
  25.       end if
  26.     end if
  27.   end if
  28.   set lsortedt to [:]
  29.   set gnowlistptr to 1
  30.   makesortlist()
  31.   set the puppet of sprite 26 to 0
  32.   go("Top")
  33. end
  34.